home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 1 / Gekikoh Dennoh Club Vol. 1 (Japan).7z / Gekikoh Dennoh Club Vol. 1 (Japan) (Track 1).bin / tools / xb / sample / files.bas < prev    next >
Encoding:
BASIC Source File  |  1995-06-17  |  540 b   |  23 lines
  1.  
  2.  /* filesnum, files と、拡張機能 A,E のサンプル
  3.  
  4. int i
  5. if b_argc<=1 then print "コマンドラインにファイル名を指定して下さい":end
  6. for i=1 to b_argc-1
  7.     printdir(b_argv(i))
  8. next
  9. end
  10.  /*
  11. func printdir(filename;str)
  12. int f,i
  13. f=filesnum(filename,&h20) /* 該当するファイルの個数を返す
  14. dim str Name(f-1)
  15. dim int Size(f-1),Time(f-1)
  16. dim char Attr(f-1)
  17. files( filename, &h20, Name, Size, Time, Attr )
  18.  /* ファイル名その他を配列にセットする
  19. for i=0 to f-1
  20. print using"&                   & ######## ";Name(i),Size(i)
  21. next
  22. endfunc
  23.